home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 8 / Amoszine 8 (Disk 2 of 3).adf / Powerbobs.lha / powerbobsv1.0 / examples / pbobsprite_col1.asc < prev    next >
Text File  |  1992-09-02  |  1KB  |  61 lines
  1. 'Collision detection between a Pbob and a lot of Sprites.
  2. Screen Open 0,320,256,4,L
  3. Hide On 
  4. Cls 0
  5. Box 0,0 To 15,15
  6. Text 4,10,"1"
  7. Get Bob 1,0,0 To 16,16
  8. Cls 0
  9. Box 0,0 To 15,1
  10. Get Bob 2,0,0 To 16,2
  11. Make Mask 
  12. Bob Update Off 
  13. Sprite Update Off 
  14. Reserve Pbobs 1
  15. Pbob Dbuf False
  16. Pbob Height 1,16
  17. Do 
  18. Locate 0,0
  19. Print "Press a key to test speed"
  20. Wait Key 
  21. Pbob Off 1
  22. Bob Off 
  23. Bob Update 
  24. Pbob Update 
  25. Cls 0
  26. Pbob 1,Rnd(200),Rnd(150)+20,1
  27. Bob 1,X Pbob(1),Y Pbob(1),1
  28. For I=8 To 63
  29.    X=Rnd(200) : Y=Rnd(220)+20
  30.    Sprite I,X+128,Y+50,2
  31. Next 
  32. Set Psprite Colours 4
  33. Convert Sprites 1
  34. For I=8 To 63
  35.    Psprite I,X Sprite(I),Y Sprite(I),2
  36. Next 
  37. Wait 10
  38. Pbob Update 
  39. Wait Vbl 
  40. Psprite Update 
  41. T=Timer
  42. For I=1 To 1000
  43.    A=Pbobsprite Fastcol(1,8 To 63)
  44. Next 
  45. Print Timer-T
  46. Hide On 
  47. Bob Update 
  48. Wait Vbl 
  49. Sprite Update 
  50. T=Timer
  51. For I=1 To 1000
  52.    A=Bobsprite Col(1,8 To 63)
  53. Next 
  54. Print Timer-T
  55. Locate 27,0 : Print "8-35 36-63"
  56. For I=8 To 35
  57.    Locate 27,I-7
  58.    Print Pfast Bobsprcol(I);Col(I),Pfast Bobsprcol(I+28);Col(I+28)
  59. Next 
  60. Loop 
  61.